PC Gamer (Italian) 31/PC Gamer IT CD 31 2-2.iso/utility/MIDWV221/MidWavi.Exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-04-08 | 12.1 KB | 554 lines

object Form1: TForm1
  Left = 173
  Top = 67
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'MidWavi - CD Player'
  ClientHeight = 365
  ClientWidth = 503
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnMouseDown = FormMouseDown
  PixelsPerInch = 96
  TextHeight = 13
  object Label8: TLabel
    Left = 104
    Top = 32
    Width = 129
    Height = 25
    AutoSize = False
    Caption = 'Loading CD...'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    Visible = False
  end
  object Label1: TLabel
    Left = 32
    Top = 280
    Width = 281
    Height = 15
    Alignment = taCenter
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 23
    Top = 318
    Width = 167
    Height = 24
    Alignment = taCenter
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 376
    Top = 208
    Width = 41
    Height = 26
    Alignment = taRightJustify
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -27
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 418
    Top = 208
    Width = 41
    Height = 26
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -27
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 18
    Top = 307
    Width = 185
    Height = 44
  end
  object Bevel2: TBevel
    Left = 352
    Top = 206
    Width = 129
    Height = 35
  end
  object Bevel3: TBevel
    Left = 344
    Top = 1
    Width = 145
    Height = 350
  end
  object Bevel4: TBevel
    Left = 216
    Top = 307
    Width = 113
    Height = 44
  end
  object Bevel5: TBevel
    Left = 18
    Top = 280
    Width = 311
    Height = 18
  end
  object Label5: TLabel
    Left = 17
    Top = 15
    Width = 63
    Height = 13
    Caption = 'Track    Time'
  end
  object Label6: TLabel
    Left = 127
    Top = 15
    Width = 63
    Height = 13
    Caption = 'Track    Time'
  end
  object Label7: TLabel
    Left = 237
    Top = 15
    Width = 63
    Height = 13
    Caption = 'Track    Time'
  end
  object Image1: TImage
    Left = 32
    Top = 8
    Width = 278
    Height = 249
    Picture.Data = {<image001.bmp>}
  end
  object Bevel6: TBevel
    Left = 352
    Top = 168
    Width = 129
    Height = 30
  end
  object Gauge1: TGauge
    Left = 352
    Top = 252
    Width = 129
    Height = 25
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ForeColor = clYellow
    BackColor = clSilver
    ParentFont = False
    Progress = 0
  end
  object MediaPlayer1: TMediaPlayer
    Left = 16
    Top = 360
    Width = 225
    Height = 20
    EnabledButtons = [btPlay, btPause, btStop, btNext, btPrev, btEject]
    VisibleButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack, btEject]
    AutoRewind = False
    DeviceType = dtCDAudio
    Visible = False
    TabOrder = 0
    OnNotify = MediaPlayer1Notify
  end
  object Button1: TButton
    Left = 352
    Top = 8
    Width = 56
    Height = 23
    Hint = 'Play from first selected Track'
    Caption = '&Play'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 352
    Top = 104
    Width = 128
    Height = 23
    Hint = 'Stop and reset to first selection'
    Caption = '&Stop'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 424
    Top = 8
    Width = 57
    Height = 23
    Hint = 'Click to Pause, click again to resume playing'
    Caption = 'Pa&use'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 352
    Top = 40
    Width = 56
    Height = 23
    Hint = 'Go to next (or randomly) selected Track'
    Caption = '&Next'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 424
    Top = 40
    Width = 56
    Height = 23
    Hint = 'Go to previous (or randomly) selected Track'
    Caption = 'Pre&vious'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = Button5Click
  end
  object Button7: TButton
    Left = 352
    Top = 72
    Width = 56
    Height = 23
    Hint = 'Click Load to read CD details'
    Caption = '&Load'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = Button7Click
  end
  object Button8: TButton
    Left = 424
    Top = 72
    Width = 56
    Height = 23
    Hint = 'You must click this button before changing a CD'
    Caption = '&Eject'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = Button8Click
  end
  object Button9: TButton
    Left = 352
    Top = 136
    Width = 30
    Height = 23
    Hint = 'All Tracks selected for playing'
    Caption = 'A&ll'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = Button9Click
  end
  object Button10: TButton
    Left = 387
    Top = 136
    Width = 41
    Height = 23
    Hint = 'No Tracks selected for playing'
    Caption = 'N&one'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = Button10Click
  end
  object TrackBar1: TTrackBar
    Left = 345
    Top = 248
    Width = 143
    Height = 23
    Enabled = False
    Orientation = trHorizontal
    Frequency = 1
    Position = 0
    SelEnd = 0
    SelStart = 0
    TabOrder = 10
    TickMarks = tmBottomRight
    TickStyle = tsManual
    Visible = False
  end
  object Button11: TButton
    Left = 352
    Top = 288
    Width = 129
    Height = 23
    Hint = 'Displays total play time of all selected Tracks'
    Caption = 'Trac&ks Selected Time'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = Button11Click
  end
  object RadioButton1: TRadioButton
    Left = 224
    Top = 312
    Width = 89
    Height = 17
    Hint = 'Display amount of Track already played'
    Caption = 'El&apsed time'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    OnClick = RadioButton1Click
  end
  object RadioButton2: TRadioButton
    Left = 224
    Top = 331
    Width = 97
    Height = 14
    Hint = 'Display amount of Track left to play'
    Caption = 'Re&maining time'
    Checked = True
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    TabStop = True
    OnClick = RadioButton2Click
  end
  object Button12: TButton
    Left = 352
    Top = 256
    Width = 129
    Height = 23
    Hint = 'Guess what?'
    Caption = 'Play AVI-MID-&WAV'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    OnClick = Button12Click
  end
  object Button13: TButton
    Left = 432
    Top = 136
    Width = 48
    Height = 23
    Hint = 'To select a single Track (primarily above 30)'
    Caption = 'Single'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 15
    OnClick = Button13Click
  end
  object CheckBox1: TCheckBox
    Left = 28
    Top = 258
    Width = 172
    Height = 17
    Hint = 'Display track details on icon'
    Caption = 'Update &Icon whilst maximised'
    ParentShowHint = False
    ShowHint = True
    State = cbChecked
    TabOrder = 16
    OnClick = CheckBox1Click
  end
  object CheckBox2: TCheckBox
    Left = 357
    Top = 170
    Width = 58
    Height = 25
    Hint =
      'Play tracks randomly forever! - Right click to see list of track' +
      's.'
    Caption = '&Random'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 17
    OnClick = CheckBox2Click
    OnMouseDown = CheckBox2MouseDown
  end
  object CheckBox3: TCheckBox
    Left = 208
    Top = 258
    Width = 113
    Height = 17
    Hint = 'Disable all track info and run standard CD Player'
    Caption = 'Normal C&D Player'
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 18
    OnClick = CheckBox3Click
  end
  object CheckBox4: TCheckBox
    Left = 425
    Top = 170
    Width = 55
    Height = 25
    Hint =
      'Play Tracks in the order they were selected - Right click to see' +
      ' list of Tracks'
    Caption = 'Sele&ct'
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 19
    OnClick = CheckBox4Click
    OnMouseDown = CheckBox4MouseDown
  end
  object BitBtn1: TBitBtn
    Left = 422
    Top = 318
    Width = 59
    Height = 27
    Caption = 'E&xit'
    TabOrder = 20
    OnClick = BitBtn1Click
    Kind = bkClose
  end
  object Button6: TButton
    Left = 352
    Top = 318
    Width = 59
    Height = 27
    Hint = 'Select and display Graphic files'
    Caption = '&Graphics'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 21
    OnClick = Button6Click
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 360
    Top = 360
  end
  object MainMenu1: TMainMenu
    Left = 400
    Top = 360
    object About1: TMenuItem
      Caption = '&File'
      object LoadCD1: TMenuItem
        Caption = '&Load CD'
        OnClick = LoadCD1Click
      end
      object PlayAVIMIDWAVfiles1: TMenuItem
        Caption = 'Play AVI-MID-&WAV files'
        OnClick = PlayAVIMIDWAVfiles1Click
      end
      object PlayaSingleCDTrack1: TMenuItem
        Caption = 'Play a &Single CD Track'
        OnClick = PlayaSingleCDTrack1Click
      end
      object DisplayGraphicFiles1: TMenuItem
        Caption = 'Display &Graphic Files'
        OnClick = DisplayGraphicFiles1Click
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object SYstemStatus1: TMenuItem
      Caption = '&Tools'
      object SystemStatus2: TMenuItem
        Caption = 'S&ystem Status'
        OnClick = SystemStatus2Click
      end
      object HideToolTips1: TMenuItem
        Caption = 'Tool Tips O&ff'
        OnClick = HideToolTips1Click
      end
      object ToolTipsOn1: TMenuItem
        Caption = 'Tool T&ips On'
        OnClick = ToolTipsOn1Click
      end
      object Defaultallsettings1: TMenuItem
        Caption = '&Default all settings'
        OnClick = Defaultallsettings1Click
      end
      object SetStatusChecking1: TMenuItem
        Caption = 'Set Status Chec&king'
        OnClick = SetStatusChecking1Click
      end
      object TurnreminderON1: TMenuItem
        Caption = 'T&urn reminder ON'
        OnClick = TurnreminderON1Click
      end
      object TurNreminderOFF1: TMenuItem
        Caption = 'Tur&n reminder OFF'
        OnClick = TurNreminderOFF1Click
      end
      object DisplayRandomTracks1: TMenuItem
        Caption = 'Display &Random Tracks'
        Enabled = False
        OnClick = DisplayRandomTracks1Click
      end
      object DisplayAsSelectedTracks1: TMenuItem
        Caption = 'Display "&As Selected" Tracks'
        OnClick = DisplayAsSelectedTracks1Click
      end
      object RegisterMidWavi1: TMenuItem
        Caption = 'Register &MidWavi'
        OnClick = RegisterMidWavi1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Contents1: TMenuItem
        Caption = '&Contents'
        OnClick = Contents1Click
      end
      object KeywordSearch1: TMenuItem
        Caption = '&Keyword Search'
        OnClick = KeywordSearch1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object About2: TMenuItem
        Caption = '&About'
        OnClick = About2Click
      end
    end
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = Timer2Timer
    Left = 328
    Top = 360
  end
end